home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_9_Kids.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  367 b   |  21 lines
  1. property meSprite
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   gmObject.kidSprite = meSprite
  7.   meSprite.static = 1
  8. end
  9.  
  10. on exitFrame me
  11.   if meSprite.member = member("normal", 1) then
  12.     if meSprite.frame <> gmObject.happiness then
  13.       meSprite.gotoFrame(gmObject.happiness)
  14.     end if
  15.   end if
  16. end
  17.  
  18. on halleluja me
  19.   go("halleluja")
  20. end
  21.